1000 POKE56334,PEEK(56334)OR1:REM(null)
1001 POKE848,169:POKE849,32:POKE850,162:POKE851,0:POKE852,157:POKE853,120:POKE854,4
1002 POKE855,157:POKE856,24:POKE857,5:POKE858,157:POKE859,184:POKE860,5:POKE861,157:POKE862,128
1003 POKE863,6:POKE864,157:POKE865,248:POKE866,6:POKE867,232:POKE868,208:POKE869,238:POKE870,96
1020 PRINT"":POKE204,1:INPUT"[215]IEVIELE [205]ONATE AUSGEBEN12[157][157][157][157]";MQ
1022 IFMQ=0THENPRINT"[145][145][145][145]":GOTO1020
1024 IFMQ>12THENPRINT"[145][145][145][145]":GOTO1020
1040 T=GT:M=GM:J=GJ:GOSUB1630:AT=X:REM(null)
1050 ZU=INT((40-LEN(N$))/2):IFHJ/4<>INT(HJ/4)ANDHM=1THENL(2)=28:REM(null)
1060 IFHM>3AND(HJ+1)/4<>INT((HJ+1)/4)THENL(2)=28:REM(null)
1070 PRINT"[147]               [194]IORHYTHMUS              [146]";
1080 PRINTLEFT$("                         ",ZU);
1090 PRINTN$:REM(null)
1100 N$="GEB. AM "+T$+",D."+STR$(GT)+"."+M$(GM)+STR$(GJ):REM(null)
1110 ZU=INT((40-LEN(N$))/2)
1120 PRINTLEFT$("                        ",ZU)N$"[144]"
1130 IFHM=1THEN1180
1140 FORA=1TOHM-1:FORB=1TO11
1150 M$(0)=M$(B):M$(B)=M$(B+1):M$(B+1)=M$(0):REM(null)
1160 L(0)=L(B):L(B)=L(B+1):L(B+1)=L(0):M(0)=M(B):M(B)=M(B+1):M(B+1)=M(0):REM(null)
1170 NEXTB,A:M(0)=0:REM(null)
1180 C=0:FORA=1TO12:IFA>1ANDM$(A)="[202]ANUAR"THENHJ=HJ+1:C=1:REM(null)
1190 M$(A)=M$(A)+STR$(HJ)
1200 NEXT:IFC=1THENHJ=HJ-1
1210 FORA=1TOMQ:RS$="     123456789[146]0[144]123456789[146]0[144]123456789[146]0[144]1[145]"
1220 PRINT""RS$;
1230 RR$="":T=1:M=M(A):J=HJ:IFM(A-1)>M(A)THENHJ=HJ+1:J=HJ
1240 ZU=INT((24-LEN(M$(A)))/2):WA$=LEFT$("",ZU)+M$(A):PRINT""
1250 FORWA=1TOZU+LEN(M$(A)):PRINT""MID$(WA$,WA,1)
1260 PRINT"[145]"SPC(38)MID$(WA$,WA,1):NEXT
1270 GOSUB1630
1280 IFL(A)=28THENX=X+3
1290 IFL(A)=29THENX=X+2
1300 TA=X-AT:G1=TA-33*INT(TA/33):S1=TA-28*INT(TA/28):K1=TA-23*INT(TA/23)
1310 AL(A)=TA
1320 S1$=CHR$(125)+CHR$(125)+CHR$(125)+"POS."+CHR$(125)+CHR$(125)+CHR$(125)
1330 S1$=S1$+CHR$(125)+CHR$(125)+CHR$(125)+CHR$(125)+"NEG."
1340 S1$=S1$+CHR$(125)+CHR$(125)+CHR$(125)
1350 PRINT"":FORWA=1TO21:PRINT""MID$(S1$,WA,1):NEXT
1360 FORB=1TO31
1370 S1$=".........."+CHR$(45)+".........."
1380 IFB>L(A)THEN1440
1390 G1=G1+1:S1=S1+1:K1=K1+1
1400 IFG1>33THENG1=1
1410 IFS1>28THENS1=1
1420 IFK1>23THENK1=1
1430 :
1440 IFB>L(A)THEN1490
1450 S1$=LEFT$(S1$,G(G1)-1)+"[199]"+MID$(S1$,G(G1)+1)
1460 S1$=LEFT$(S1$,S(S1)-1)+"[211]"+MID$(S1$,S(S1)+1)
1470 S1$=LEFT$(S1$,K(K1)-1)+"[203]"+MID$(S1$,K(K1)+1)
1480 RS$="[145]":FORWA=21TO1STEP-1:PRINTRR$RS$MID$(S1$,WA,1);:RS$=""+RS$:NEXT:RR$=RR$+""
1490 NEXTB:POKE198,0:WAIT198,1:PRINT"":SYS848
1500 NEXTA
1510 FORA=1TO16:READAV:IFAV=>AL(1)ANDAV<=AL(12)+L(12)THENA=16:GOTO1530
1520 NEXTA:GOTO1620
1530 FORA=1TO12:IFAV=>AL(A)ANDAV<=AL(A)+L(A)THENB=A:A=12:GOTO1550
1540 NEXTA:
1550 FORA=2TOB:IFM(A-1)>M(A)THENJ1=J1+1
1560 NEXTA:T=AV-AL(B):M=M(B):J=J1:GOSUB1630
1570 PRINT"----------------------------------------"
1580 PRINT:PRINT"[201]CH HABE NOCH EINEN [199]RUND ZUM [198]EIERN    FUER [211]IE :"
1590 PRINT
1600 PRINT"[193]M "T$", DEM "RIGHT$(STR$(T),2)"."RIGHT$(STR$(M(B)),2)".";J1
1610 PRINT"WERDEN [211]IE"AV"[212]AGE ALT"
1620 PRINT"      NOCH EINMAL ? (J/N)"
1622 GETA$:IFA$<>"J"ANDA$<>"N"THEN1622
1624 IFA$="N"THENFORX=2200TO2300:POKEX,0:NEXT:SYS64738
1626 RUN
1630 REM     ALTER UND WOCHENTAG
1640 Z=0:IFM<2THENY=(M-1)*31:GOTO1680
1650 IFJ/4<>INT(J/4)THEN1670
1660 IFJ/100<>INT(J/100)THENZ=1
1670 Y=INT((306*M-324)/10)
1680 Z=Z+INT(J-1)*365+INT((J-1)/4)
1690 Z=Z-INT((J-1)/100)+INT((J-1)/400)
1700 X=Z+Y+T:W=(X-INT(X/7)*7)+1
1710 ONWGOTO1720,1730,1740,1750,1760,1770,1780
1720 T$="[211]ONNTAG":RETURN
1730 T$="[205]ONTAG":RETURN
1740 T$="[196]IENSTAG":RETURN
1750 T$="[205]ITTWOCH":RETURN
1760 T$="[196]ONNERSTAG":RETURN
1770 T$="[198]REITAG":RETURN
1780 T$="[211]AMSTAG":RETURN